home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs46.d81
/
sound.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
19 lines
10 POKE56,14:CLR:GOTO2020
20 PRINT"[147]ENTER NAME OF DATA FILE."
30 PRINT"(PRESS RETURN TO EXIT.)"
40 PRINT:INPUTF$:IFF$=""THENPOKE56,160:END
50 PRINT"[147]SEARCHING FOR ";F$
60 OPEN8,8,8,F$
70 FORI=1TO2000:NEXT:PRINT"":SYS3584
80 PRINT"[147][142]PRESS RETURN FOR SOUND."
90 PRINT"(PRESS X TO EXIT.)"
100 GETA$:IFA$="X"THENPOKE56,160:END
110 IFA$=CHR$(13)THENPOKE155,16:POKE156,239:SYS3695:SYS3728:GOTO80
120 GOTO100
2020 PRINT"[147]ONE MOMENT PLEASE..."
2030 P=PEEK(45)+256*PEEK(46)-1
2040 IFPEEK(P)THENP=P-1:GOTO2040
2050 P=P-300
2060 FORI=.TO300:POKE3584+I,PEEK(P+I):NEXT
2070 POKE2063,48:GOTO20